home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Control Panel Hide 10.xpl < prev    next >
Text File  |  2000-11-13  |  4KB  |  123 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Appearance\Control Panel\OEM Icons"
  5. "NAME"="Visible OEM Items #4"
  6. "VERSION"="1.15"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display "BDE Administrator" applet"
  9. "TEXT 2"="Display "Matrox Display Properties" applet"
  10. "TEXT 3"="Display "Corel Versions Manager" applet"
  11. "TEXT 4"="Display "Symantec Live Update" applet"
  12. "TEXT 5"="Display "TweakUI" applet"
  13. "DESCRIPTION 1"="This plug-in can be used to hide or show the different applets inside Start -> Settings -> Control Panel."
  14. "DESCRIPTION 2"="BDE Administrator is used to adjust Corel WordPerfect Office Suite 2000 database settings."
  15. "DESCRIPTION 3"="Matrox Display properties is for Matrox video card users."
  16. "DESCRIPTION 4"="Corel Versions Manager is part of Corel WordPerfect Office Suite 2000."
  17. "DESCRIPTION 5"="Symantec Live Update is used for updating Symantec products such as Norton Antivirus."
  18. "DESCRIPTION 6"="TweakUI is a program made by Microsoft.  See: http://members.aol.com/axcel216/98-3.htm#TWK98"
  19. "AUTHOR"="CptSiskoX"
  20. "CONTACTURL"="http://members.fortunecity.com/computingx/"
  21. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  22. "COMMENT 1"=" "
  23. "COMMENT 2"="Thanks to Pierre Szwarc for the info about these Control Panel applets."
  24. "COMMENT 3"="Thanks to TeX HeX for his creativity."
  25. "COMMENT 4"="Thanks to AXCEL216 for his info about TweakUI.  See: http://members.aol.com/axcel216/98-3.htm#TWK98"
  26.  
  27.  
  28. '******************************************************************
  29. '***                COPY !!!! ONLY EDIT LINES BELOW!!!!        ****
  30. '******************************************************************
  31. sVals=""
  32. sVals2=Array("bdeadmin.cpl","mgapanel.cpl","vesrcpl.cpl","s32lucp1.cpl","tweakui.cpl")
  33. sVals3=Array("bdeadmin.cpl","mgapanel.cpl","vesrcpl.cpl","s32lucp1.cpl","tweakui.cpl")
  34. '******************************************************************
  35. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  36. '******************************************************************
  37. sPath="HKCU\Control Panel\Don't Load\"
  38. sFile="CONTROL.INI"
  39. sFileSec="Don't Load"
  40.  
  41.  
  42.  
  43. SUB Plugin_Initialize
  44.  if GetWinVer=4 then
  45.     sVals=sVals3
  46.  else
  47.     sVals=sVals2
  48.  end if
  49.  
  50.  for i=0 to UBound(sVals)
  51.      Call ReadIt(i+1,sVals(i)) 
  52.  next 
  53. END SUB
  54.  
  55. Sub ReadIt(ITM,VAL)
  56.   If GetWinVer=2 or GetWinVer=4 then
  57.  
  58.      s=RegReadValue(sPath & VAL)
  59.      if IsEmpty(s)=true then
  60.         Call SetUIElement(ITM,true)
  61.      else
  62.         Call SetUIElement(ITM,false)
  63.      end if
  64.  
  65.   else
  66.  
  67.     s=IniReadValue(sFile,sFileSec,VAL)
  68.     if len(s)>0 then
  69.        Call SetUIElement(ITM,false)
  70.     else
  71.        Call SetUIElement(ITM,true)
  72.     end if
  73.      
  74.   end if
  75.      
  76. End Sub
  77.  
  78. 'Called when the Plugin should validate the Data the user has entered
  79. SUB Plugin_CheckData(ElementIndex)
  80. END SUB
  81.  
  82. 'Called when the Plugin should apply the changes
  83. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  84.  for i=0 to UBound(sVals)
  85.      Call WriteIt(i+1,sVals(i)) 
  86.  next 
  87.  
  88.  Call IndicateSettingChange()
  89. END SUB
  90.  
  91. Sub WriteIt(ITM,VAL)
  92.  b=GetUIElement(ITM)
  93.  if b=true then
  94.     'Display it
  95.  
  96.     if GetWinVer=2 or GetWinVer=4 then  
  97.        s=RegReadValue(sPath & VAL)
  98.        if IsEmpty(s)=false then
  99.           Call RegDeleteValue(sPath & VAL)
  100.        end if
  101.     else
  102.        Call IniWriteValue(sFile,sFileSec,VAL,"")
  103.     end if
  104.  
  105.  else
  106.    'Hide it
  107.    
  108.    if GetWinVer=2 or GetWinVer=4 then
  109.       Call RegWriteValue(sPath & VAL,"1",1) 
  110.    else
  111.       Call IniWriteValue(sFile,sFileSec,VAL,"no")
  112.    end if
  113.  
  114.  end if   
  115. End Sub
  116.  
  117.  
  118. 'Called when the Plugin is about to be removed from memory
  119. SUB Plugin_Terminate
  120. END SUB
  121.  
  122.  
  123.